#!/usr/bin/perl
#
#
open(F1,$ARGV[0]);
while($f1=<F1>) {
	chomp($f1);
	$is{$f1} =1;
}
close(F1);
open(F2,$ARGV[1]);
while($f2=<F2>) {
	chomp($f2);
	if($is{$f2}) {
		print $f2."\n";
	}
}
close(F1);
close(F2);
